home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / gear / for_cd / meeko / mao.txt < prev    next >
Text File  |  1994-01-07  |  913b  |  30 lines
  1. CLEAR ,,,10000
  2. DIM CARA%(4500)
  3. A1$=GETS$("systext",1)
  4. A2$=GETS$("systext",2)
  5. A3$=GETS$("systext",3)
  6. A4$=GETS$("SYSTEXT",4)
  7. A5$=GETS$("SYSTEXT",5)
  8. CLRF "systext"
  9. VIEW "イメージ1"
  10. LOAD@ "CARACTER.ABC",CARA%
  11. MOUSE 0
  12. MOUSE 1,280,169,0
  13. FLAG=-1
  14. WHILE FLAG
  15. CX=MOUSE(0):CY=MOUSE(1)
  16. PUT@A (CX-57,CY-69)-(CX+57,CY+69),CARA%
  17. IF (CX>267 AND CX<318) THEN IF (CY>236 AND CY<288) THEN PUTS "SYSTEXT","MIKAN",1:FLAG=0
  18. IF (CX>0 AND CX<161) THEN IF (CY>46 AND CY<182) THEN PUTS "SYSTEXT","RYO",1:FLAG=0
  19. IF (CX>501 AND CX<542) THEN IF (CY>48 AND CY<109) THEN PUTS "SYSTEXT","MARIO",1:FLAG=0
  20. IF (CX>529 AND CX<596) THEN IF (CY>386 AND CY<445) THEN PUTS "SYSTEXT","UNZEN",1:FLAG=0
  21. IF (CX>509 AND CX<600) THEN IF (CY>239 AND CY<437) THEN GO "ページ8/ボタン1"
  22. WEND
  23. VIEW END
  24. PUTS "systext",A2$,2
  25. PUTS "systext",A3$,3
  26. PUTS "SYSTEXT",A4$,4
  27. PUTS "SYSTEXT",A5$,5
  28. EFFECT VERTICAL(OPEN)
  29. GO "ページ2/多色フレーム"
  30.